home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / util / bsindex1 / part01 / scripts / bbsindex.scr next >
Text File  |  1990-02-02  |  2KB  |  86 lines
  1. #
  2. # This script builds sorted file catalogues for the Amiga and IBM
  3. # file areas (i.e. sections 3, 4, 6 and 1), on the Infomatique BBS
  4. # (Phone: Dublin 302970 (+353-1-302970),  V21/22bis/23)
  5. #
  6. # The following constants define the output files for the various filelists
  7. # Change them to suit.
  8.  
  9. AmigaFiles    = "Amiga.Files"
  10. IBMFiles    = "IBM.Files"
  11.  
  12. #
  13. # This macro outputs the header for a filelist
  14. #
  15. macro header # SectionNumber, No. of dirs, SectionName, Filename
  16.     select Section = $1
  17.     scan
  18.     echo "Sorted list of $3 files - %d %w %t"
  19.     echo ""
  20.     echo "This file is available in the files section as $4"
  21.     echo "Files which are not currently available are marked with a *"
  22.     echo ""
  23.     echo "Total of %n files in $2 sections, occupying %m Megabytes."
  24.     echo ""
  25. endm
  26.  
  27. #
  28. # This macro takes a Section, Directory and title, and produces a list of
  29. # all the files in that section and directory.
  30. #
  31. macro sublist # Section, Directory, Title
  32.     echo "%{$2. $3}\n%u-"
  33.     select Section = $1 AND Directory = $2
  34.     list
  35.     echo ""
  36. endm
  37.  
  38. #
  39. # Standard file stuff, the same for everything
  40. #
  41. norequest
  42. checkfiles
  43. format "%15n %w %-6x-%b{B,T}%v{ ,*} %c"
  44. sort Section, Directory, Name
  45.  
  46. #
  47. # List Amiga files
  48. #
  49. open $(AmigaFiles)
  50. header 3, 14, "Amiga", "AMIGA.FILES"
  51. sublist 3,  1, "General text files"
  52. sublist 3,  2, "Technical text files"
  53. sublist 3,  3, "Archived text files"
  54. sublist 3,  4, "Games"
  55. sublist 3,  5, "Screen Hacks"
  56. sublist 3,  6, "Graphics, sound & demos"
  57. sublist 3,  7, "Graphics & sound programs"
  58. sublist 3,  8, "DOS utilities"
  59. sublist 3,  9, "Programming utilities"
  60. sublist 3, 10, "Resident utilities "
  61. sublist 3, 11, "Applications"
  62. sublist 3, 12, "Comms programs"
  63. sublist 3, 13, "Miscellaneous"
  64. sublist 3, 14, "Hardware"
  65. #
  66. # List IBM files
  67. #
  68. open $(IBMfiles)
  69. header 4, 16, "IBM", "IBM.FILES"
  70. sublist 4,  1, "General, Miscellaneous"
  71. sublist 4,  2, "Miscellaneous Text Files"
  72. sublist 4,  3, "Digestives"
  73. sublist 4,  4, "DOS File Utilities"
  74. sublist 4,  5, "Archive Utilities"
  75. sublist 4,  6, "Pop-Up Utilities"
  76. sublist 4,  7, "Games & Fun"
  77. sublist 4,  8, "Graphics Progs"
  78. sublist 4,  9, "Graphics Images & Viewers"
  79. sublist 4, 10, "Sound & Music"
  80. sublist 4, 11, "Source Code & Programming"
  81. sublist 4, 12, "Viruses"
  82. sublist 4, 13, "Comms Packages & Utils"
  83. sublist 4, 14, "Mainstream Applications"
  84. sublist 4, 15, "Education/Tutorials"
  85. sublist 4, 16, "Hardware Utils, Performance Tests"
  86.